object Form18: TForm18 Left = 114 Top = 150 Width = 566 Height = 446 ActiveControl = Panel1 Caption = 'Customers' Font.Color = clBlack Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 120 Position = poScreenCenter TextHeight = 16 object Label5: TLabel Left = 56 Top = 112 Width = 46 Height = 16 Caption = 'Version' end object Panel1: TPanel Left = 0 Top = 0 Width = 558 Height = 381 Align = alTop TabOrder = 0 object Bevel3: TBevel Left = 12 Top = 84 Width = 273 Height = 189 end object Bevel2: TBevel Left = 4 Top = 8 Width = 545 Height = 41 end object Bevel1: TBevel Left = 328 Top = 84 Width = 225 Height = 189 end object Label6: TLabel Left = 40 Top = 92 Width = 64 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Licensee' end object Label9: TLabel Left = 72 Top = 118 Width = 32 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Date' end object Label10: TLabel Left = 20 Top = 144 Width = 84 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Customer' end object Label11: TLabel Left = 36 Top = 170 Width = 68 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Address1' end object Label14: TLabel Left = 36 Top = 196 Width = 68 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Address2' end object Label15: TLabel Left = 36 Top = 222 Width = 68 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Address3' end object Label16: TLabel Left = 28 Top = 248 Width = 76 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Telephone' end object Label22: TLabel Left = 376 Top = 104 Width = 77 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Quantity' end object Label23: TLabel Left = 404 Top = 132 Width = 48 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Price' end object Label24: TLabel Left = 388 Top = 160 Width = 64 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'SubTotal' end object Label25: TLabel Left = 340 Top = 186 Width = 116 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Shipping & Handling' end object Label26: TLabel Left = 348 Top = 212 Width = 108 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Tax' end object Label27: TLabel Left = 356 Top = 238 Width = 100 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Total' end object Label1: TLabel Left = 28 Top = 16 Width = 46 Height = 16 Caption = 'Product' end object Label30: TLabel Left = 28 Top = 54 Width = 433 Height = 25 Caption = 'Demo Registration - Only Print feature is functional' Font.Color = clBlack Font.Height = -20 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Print: TBitBtn Left = 372 Top = 12 Width = 81 Height = 33 Caption = '&Preview' TabOrder = 0 OnClick = PrintClick end object ComboBox2: TComboBox Left = 88 Top = 12 Width = 265 Height = 24 Enabled = False ItemHeight = 16 TabOrder = 1 Text = 'Demo Program' end object Exit: TBitBtn Left = 456 Top = 12 Width = 77 Height = 33 Caption = '&Exit' ModalResult = 2 TabOrder = 2 OnClick = ExitClick end object Edit12: TEdit Left = 464 Top = 98 Width = 81 Height = 24 ReadOnly = True TabOrder = 3 Text = '0.00' end object Edit13: TEdit Left = 464 Top = 126 Width = 81 Height = 24 ReadOnly = True TabOrder = 4 Text = '0.00' end object Edit14: TEdit Left = 464 Top = 154 Width = 81 Height = 24 ReadOnly = True TabOrder = 5 Text = '0.00' end object Edit15: TEdit Left = 464 Top = 186 Width = 81 Height = 24 ReadOnly = True TabOrder = 6 Text = '0.00' end object Edit16: TEdit Left = 464 Top = 210 Width = 81 Height = 24 ReadOnly = True TabOrder = 7 Text = '0.00' end object Edit17: TEdit Left = 464 Top = 234 Width = 81 Height = 24 ReadOnly = True TabOrder = 8 Text = '0.00' end object Memo9: TMemo Left = 12 Top = 280 Width = 545 Height = 93 Alignment = taCenter Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Lines.Strings = ( 'If you look closely, you'#39'll see that this form consists of 2 par' + 'ts. The ' 'bottom part is the actual part that gets to be printed. It is st' + 'ill on the ' 'same form so any information is accessible to both parts!' 'The bottom form can be completely hidden but will still print wi' + 'th PrintIt' 'In this demo everything is disabled except for the Preview and E' + 'xit buttons') ParentFont = False ReadOnly = True TabOrder = 9 end object Edit18: TEdit Left = 110 Top = 90 Width = 163 Height = 24 ReadOnly = True TabOrder = 10 Text = 'Mr. J. Smith' end object Edit19: TEdit Left = 110 Top = 116 Width = 163 Height = 24 ReadOnly = True TabOrder = 11 end object Edit20: TEdit Left = 110 Top = 141 Width = 163 Height = 24 ReadOnly = True TabOrder = 12 end object Edit21: TEdit Left = 110 Top = 167 Width = 163 Height = 24 ReadOnly = True TabOrder = 13 end object Edit22: TEdit Left = 110 Top = 192 Width = 163 Height = 24 ReadOnly = True TabOrder = 14 end object Edit23: TEdit Left = 110 Top = 218 Width = 163 Height = 24 ReadOnly = True TabOrder = 15 end object Edit24: TEdit Left = 110 Top = 243 Width = 163 Height = 24 ReadOnly = True TabOrder = 16 end end object Panel2: TPanel Left = 0 Top = 381 Width = 558 Height = 38 Align = alClient BevelInner = bvLowered BorderWidth = 4 Caption = 'Panel2' TabOrder = 1 object ScrollBox: TScrollBox Left = 6 Top = 6 Width = 546 Height = 26 HorzScrollBar.Margin = 6 HorzScrollBar.Position = 295 VertScrollBar.Margin = 6 VertScrollBar.Position = 51 Align = alClient BorderStyle = bsNone Color = clBtnFace ParentColor = False TabOrder = 0 object Label12: TLabel Left = -271 Top = -11 Width = 298 Height = 16 Caption = '1111 St James'#39' Street, Pretoria, South Africa, 0083' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsItalic] ParentFont = False end object Shape1: TShape Left = -275 Top = 9 Width = 737 Height = 5 Brush.Color = clBlack end object Label13: TLabel Left = -267 Top = 209 Width = 188 Height = 19 Caption = 'Thank you for registering ' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label3: TLabel Left = -7 Top = 121 Width = 66 Height = 19 Caption = 'Licensee' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label4: TLabel Left = -7 Top = 153 Width = 114 Height = 19 Caption = 'Activation Code' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label7: TLabel Left = 141 Top = -11 Width = 29 Height = 16 Caption = 'Fax :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsItalic] ParentFont = False end object Label8: TLabel Left = 133 Top = 69 Width = 3 Height = 16 Caption = '.' end object Label28: TLabel Left = -267 Top = 865 Width = 67 Height = 16 Caption = 'The Chief' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold, fsUnderline] ParentFont = False end object Label29: TLabel Left = -271 Top = -43 Width = 173 Height = 29 Caption = 'Demo Company' Font.Color = clBlack Font.Height = -23 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label19: TLabel Left = 173 Top = -11 Width = 100 Height = 16 Caption = '+27-12-11111111' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsItalic] ParentFont = False end object Image1: TImage Left = 412 Top = 80 Width = 85 Height = 105 Picture.Data = {} end object Memo1: TMemo Left = -267 Top = 237 Width = 797 Height = 65 BorderStyle = bsNone Color = clBtnFace Ctl3D = False Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'We appreciate your support. This document contains the informati' + 'on necessary to activate your copy of our ' 'software. On the Demo Program that you have received, either fro' + 'm a Bulletin Board, the Internet or directly' 'from us there is an Icon option called ACTIVATE Our Product whic' + 'h activates your copy of Our Product #1' '' ' To ACTIVATE your copy of Our Product #1 do the follo' + 'wing:' '') ParentCtl3D = False ParentFont = False TabOrder = 0 end object Memo2: TMemo Left = -267 Top = 309 Width = 541 Height = 49 BorderStyle = bsNone Color = clBtnFace Ctl3D = False Font.Color = clBlack Font.Height = -17 Font.Name = 'MS Sans Serif' Font.Style = [fsItalic] Lines.Strings = ( ' 1. Select the ACTIVATE Our Product icon' ' 2. Enter the Field REGISTERED To EXACTLY as:' ' ') ParentCtl3D = False ParentFont = False TabOrder = 1 end object Memo3: TMemo Left = -267 Top = 433 Width = 437 Height = 21 BorderStyle = bsNone Color = clBtnFace Ctl3D = False Font.Color = clBlack Font.Height = -17 Font.Name = 'MS Sans Serif' Font.Style = [fsItalic] Lines.Strings = ( ' 4. Enter your Activation Code as:') ParentCtl3D = False ParentFont = False TabOrder = 2 end object Memo4: TMemo Left = -267 Top = 489 Width = 525 Height = 67 BorderStyle = bsNone Color = clBtnFace Ctl3D = False Font.Color = clBlack Font.Height = -17 Font.Name = 'MS Sans Serif' Font.Style = [fsItalic] Lines.Strings = ( ' 5.Click on the OK Button' '' ' (If no typing errors occurred, your copy is now reg' + 'istered)') ParentCtl3D = False ParentFont = False TabOrder = 3 end object Memo5: TMemo Left = -267 Top = 590 Width = 797 Height = 66 BorderStyle = bsNone Color = clBtnFace Ctl3D = False Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'This copy of Out Product is for the use of 1 programmer only. Ea' + 'ch additional copy must be licensed. ' 'There are no royalties for using the components in your executab' + 'le programs. You may make copies' 'for yourself and install it on another computer as long as there' + ' is only one person using it.') ParentCtl3D = False ParentFont = False TabOrder = 4 end object Memo6: TMemo Left = -267 Top = 681 Width = 771 Height = 63 BorderStyle = bsNone Color = clBtnFace Ctl3D = False Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'Your support and satisfaction is very important to us. If you ha' + 've a problem, please let us know. If you are' 'satisfied with our product, feel free to distribute the unlicens' + 'ed copy to others. We would also appreciate' 'any recommendations on how to improve the software even further.' '' '' 'Thank you and best regards.' '' '' '') ParentCtl3D = False ParentFont = False TabOrder = 5 end object Memo7: TMemo Left = -267 Top = 888 Width = 721 Height = 28 BorderStyle = bsNone Color = clWhite Ctl3D = False Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [fsBold] Lines.Strings = ( 'Ps. This is a demo program' '') ParentCtl3D = False ParentFont = False ReadOnly = True TabOrder = 6 end object EditProduct: TEdit Left = -71 Top = 209 Width = 443 Height = 24 Color = clWhite ReadOnly = True TabOrder = 7 Text = 'Our Product #1' end object Memo8: TMemo Left = -267 Top = 393 Width = 585 Height = 21 BorderStyle = bsNone Color = clBtnFace Ctl3D = False Font.Color = clBlack Font.Height = -17 Font.Name = 'MS Sans Serif' Font.Style = [fsItalic] Lines.Strings = ( ' 3. Select the product you want to register from the' + ' Combobox') ParentCtl3D = False ParentFont = False TabOrder = 8 end object Edit1: TEdit Left = -273 Top = 25 Width = 119 Height = 24 BorderStyle = bsNone Color = clBtnFace ReadOnly = True TabOrder = 9 Text = '12 Januarie 1996' end object Edit3: TEdit Left = 115 Top = 117 Width = 235 Height = 24 Color = clWhite ReadOnly = True TabOrder = 10 Text = 'Mr. J. Smith' end object Edit5: TEdit Left = -265 Top = 124 Width = 235 Height = 24 BorderStyle = bsNone Color = clBtnFace ReadOnly = True TabOrder = 12 Text = 'South Africa' end object Edit6: TEdit Left = -265 Top = 145 Width = 235 Height = 24 BorderStyle = bsNone Color = clBtnFace ReadOnly = True TabOrder = 13 Text = '0083' end object Edit7: TEdit Left = 115 Top = 149 Width = 235 Height = 24 Color = clWhite ReadOnly = True TabOrder = 14 Text = '12345' end object Edit8: TEdit Left = -265 Top = 81 Width = 235 Height = 24 BorderStyle = bsNone Color = clBtnFace ReadOnly = True TabOrder = 15 Text = 'Mr. J.Smith' end object Edit4: TEdit Left = -265 Top = 102 Width = 235 Height = 24 BorderStyle = bsNone Color = clBtnFace ReadOnly = True TabOrder = 11 Text = 'Nowhere' end object Edit10: TEdit Left = -197 Top = 357 Width = 235 Height = 24 Color = clWhite ReadOnly = True TabOrder = 16 Text = 'Mr. J. Smith' end object Edit2: TEdit Left = -197 Top = 457 Width = 235 Height = 24 Color = clWhite ReadOnly = True TabOrder = 17 Text = '12345' end end end object PrintWin1: TPrintWin HeaderFont.Color = clWindowText HeaderFont.Height = 16 HeaderFont.Name = 'Arial' HeaderFont.Style = [] FooterFont.Color = clWindowText FooterFont.Height = 12 FooterFont.Name = 'Arial' FooterFont.Style = [] FrameObjects = True clBtnFaceAsWhite = True DateTimeStampEnabled = False PageNumberEnabled = False OutputTo = poViewer Orientation = Default Units = poInches ViewButtonVisible = False LineWidth = 0 GridBackDrop = False GridBackDropUnits = poInches ZoomPercentage = 100.000000000000000000 HeaderTop = 0.500000000000000000 HeaderLeft = 0.500000000000000000 HeaderEnabled = True HeaderOutlined = False HeaderFilled = False TextColor = clBlack ViewBkColor = 11234567 ViewHeading = 'Printit Viewer' HeadingColor = clSilver FrameStyle = frThin FooterTop = 25.130000000000000000 FooterString = ' ' FooterEnabled = False FooterOutlined = False FooterFilled = False FixSansSerif = True BorderLeft = 0.500000000000000000 BorderRight = 0.500000000000000000 LineSpacing = 2.800000000000000000 Left = 512 Top = 88 end end